﻿Imports System.Web
Imports System.Net
Public Class Form1


    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        ' WaitingCheckIn.Show()
        'WaitingCheckOut.Show()
        pnlAdmin.Visible = True


    End Sub



    

    Private Sub pbReservations_Click(sender As System.Object, e As System.EventArgs)
        Reservations.Show()
        'Dim a As WebRequest
        'Dim aa As WebResponse
        'Dim dataStream As System.IO.Stream
        'a = System.Net.WebRequest.Create("http://www.spirit.com/FlightStatus.aspx")
        'aa = a.GetResponse()
        'MessageBox.Show(CType(aa, HttpWebResponse).StatusDescription.ToString())
        'dataStream = aa.GetResponseStream
        'Dim reader As New System.IO.StreamReader(dataStream)
        'Dim responseFromServer As String = reader.ReadToEnd()
        'Try
        '    Console.WriteLine(responseFromServer)
        '    'MessageBox.Show(responseFromServer.ToString())
        'Catch ex As Exception

        'End Try

        '  massageb.WriteLine(CType(aa, HttpWebResponse).StatusDescription)
    End Sub


 
    Private Sub pbCheckIn_Click(sender As System.Object, e As System.EventArgs) Handles pbCheckIn.Click
        Dim checkIn As New CheckIn("")
        checkIn.Show()
    End Sub

    Private Sub pbCheckOut_Click(sender As System.Object, e As System.EventArgs) Handles pbCheckOut.Click
        CheckOutBy.Show()
    End Sub

    Private Sub pbInventory_Click(sender As System.Object, e As System.EventArgs) Handles pbInventory.Click
        ' MultipleCheckOuts.Show()
    End Sub

    Private Sub pbTicketManager_Click(sender As System.Object, e As System.EventArgs) Handles pbTicketManager.Click

    End Sub

    Private Sub pbEmpManager_Click(sender As System.Object, e As System.EventArgs) Handles pbEmpManager.Click
        Dim employee As New EmployeeManager
        employee.Show()
    End Sub

    Private Sub pbSysManager_Click(sender As System.Object, e As System.EventArgs) Handles pbSysManager.Click

    End Sub

    Private Sub pbScan_Click(sender As System.Object, e As System.EventArgs)

    End Sub

    Private Sub pbReservations_Click_1(sender As System.Object, e As System.EventArgs) Handles pbReservations.Click
        Reservations.Show()
    End Sub

    Private Sub pbCreateCustomer_Click(sender As System.Object, e As System.EventArgs) Handles pbCreateCustomer.Click
        Dim customer As New Customers
        customer.Show()
    End Sub
End Class
